;;;QQ:67762207
[@Area5_Map1]
{
#IF
Equal A0 %USERNAME
Equal D0 21
Equal D1 5

#ACT
GOTO @Area5Map1_STEP3
BREAK

#IF
#ACT
FormatStr "FLD_CHAR='%s'" %USERNAME
ReadValueSql "TBL_BasicCharQuest" %A9 "FLD_CHAR,FLD_STATUS1,FLD_STATUS1_RDY,FLD_MAKEIDX" [@BichunArea5_Next]

[@BichunArea5_Next()]
#IF
#ACT
mov A0 %ARG(1)
mov D0 %ARG(2)
mov D1 %ARG(3)

#IF
Equal A0 %USERNAME
Equal D0 21
Equal D1 5
#ACT
GOTO @Area5Map1_STEP2
BREAK

#IF
Equal A0 %USERNAME
#SAY
(Ѿȴ޷䡣)\\
<  /@exit>
#ACT
BREAK

[@Area5Map1_STEP2]
#IF
#SAY
(Ǹ˾)\\
<  /@exit>

[@Area5Map1_STEP3]
#IF
#ACT
Enter_ok
}

[@Area5_Map2]
{
#IF
checkhum DQ201_001 1
#ACT
goto @ELseArea2_STEP5
break

#IF
Equal A0 %USERNAME
Equal D0 21
Equal D1 16

#ACT
MonClear DQ201_001
GOTO @ELseArea2_RESTEP
BREAK

#IF
Equal A0 %USERNAME
Equal D0 21
Equal D1 14

#ACT
MonClear DQ201_001
GOTO @ELseArea2_STEP3
BREAK

#IF
Equal A0 %USERNAME
Equal D0 21
Equal D1 15
#ACT
MonClear DQ201_001
GOTO @ELseArea2_STEP3
BREAK

#IF
#ACT
FormatStr "FLD_CHAR='%s'" %USERNAME
ReadValueSql "TBL_BasicCharQuest" %A9 "FLD_CHAR,FLD_STATUS1,FLD_STATUS1_RDY,FLD_MAKEIDX" [@ELseMap2_Next]

[@ELseMap2_Next()]
#IF
#ACT
mov A0 %ARG(1)
mov D0 %ARG(2)
mov D1 %ARG(3)

#IF
Equal A0 %USERNAME
Equal D0 21
Equal D1 16
#ACT
MonClear DQ201_001
GOTO @ELseArea2_STEP2
BREAK

#IF
Equal A0 %USERNAME
Equal D0 21
Equal D1 15
#ACT
MonClear DQ201_001
GOTO @ELseArea2_STEP2
BREAK

#IF
Equal A0 %USERNAME
Equal D0 21
Equal D1 14
#ACT
MonClear DQ201_001
GOTO @ELseArea2_STEP2
BREAK

#IF
Equal A0 %USERNAME
#SAY
(Ѿȴ޷䡣)\\
<  /@exit>
#ACT
BREAK

[@ELseArea2_STEP2]
#IF
#SAY
(һֲԤС)\\
<  /@exit>

[@ELseArea2_STEP3]
#IF
#ACT
Enter_ok

[@ELseArea2_STEP5]
#IF
#ACT
Enter_Fail
#SAY
(䱻ӡ...Ҫĵȴһ)\\
<  /@exit>

[@ELseArea2_RESTEP]
#IF
#ACT
Enter_ok
FormatStr "FLD_CHAR='%s'" %USERNAME
UpdateValueSql "TBL_BasicCharQuest" %A9 "FLD_STATUS1_RDY=15"
}

[@Area5_Map3]
{
#IF
checkhum DQ202_001 1
#ACT
goto @ELseArea3_STEP5
break


#IF
#ACT
loadvalue A1 "QuestDiary\AreaQuest\ChoBoGuide5\HumRecord.txt" [] [ǰ]

#IF
EQUAL A1 %USERNAME
#ACT
GOTO @ELseArea3_STEP3
BREAK

#IF
#ACT
savevalue "QuestDiary\AreaQuest\ChoBoGuide5\HumRecord.txt" [] [ǰ] %USERNAME

#IF
Equal A0 %USERNAME
Equal D0 21
Equal D1 20

#ACT
MonClear DQ202_001
GOTO @ELseArea3_STEP3
BREAK

#IF
Equal A0 %USERNAME
Equal D0 21
Equal D1 21
#ACT
MonClear DQ202_001
GOTO @ELseArea3_STEP3
BREAK

#IF
Equal A0 %USERNAME
Equal D0 21
Equal D1 22
#ACT
MonClear DQ202_001
GOTO @ELseArea3_RESTEP3
BREAK

#IF
#ACT
FormatStr "FLD_CHAR='%s'" %USERNAME
ReadValueSql "TBL_BasicCharQuest" %A9 "FLD_CHAR,FLD_STATUS1,FLD_STATUS1_RDY,FLD_MAKEIDX" [@ELseAreaMap3_Next]

[@ELseAreaMap3_Next()]
#IF
#ACT
mov A0 %ARG(1)
mov D0 %ARG(2)
mov D1 %ARG(3)


#IF
Equal A0 %USERNAME
Equal D0 21
Equal D1 20
#ACT
MonClear DQ202_001
GOTO @ELseArea3_STEP2
BREAK

#IF
Equal A0 %USERNAME
Equal D0 21
Equal D1 21
#ACT
MonClear DQ202_001
GOTO @ELseArea3_STEP2
BREAK

#IF
Equal A0 %USERNAME
Equal D0 21
Equal D1 22
#ACT
MonClear DQ202_001
GOTO @ELseArea3_STEP2
BREAK

#IF
Equal A0 %USERNAME
Equal D0 21
Equal D1 17
#ACT
MonClear DQ202_001
GOTO @ELseArea3_STEP1
BREAK

#IF
Equal A0 %USERNAME
#SAY
(Ѿȴ޷䡣)\\
<  /@exit>
#ACT
BREAK

[@ELseArea3_STEP1]
#IF
#ACT
Enter_Fail
#SAY
(ƺĳӡţǵʿϢħȥʦһ°ɡ)\\
<  /@exit>

[@ELseArea3_STEP2]
#IF
#SAY
(ķ䡣)\\
<  /@exit>

[@ELseArea3_STEP3]
#IF
#ACT
Take  1
Enter_ok

[@ELseArea3_STEP5]
#IF
#ACT
loadvalue A1 "QuestDiary\AreaQuest\ChoBoGuide5\HumRecord.txt" [] [ǰ]

Enter_Fail
#SAY
(ƺһ[<$OUTPUT(A1)>]ļһ...Ҫĵȴһ)\\
<  /@exit>

[@ELseArea3_RESTEP3]
#IF
#ACT
Enter_ok
FormatStr "FLD_CHAR='%s'" %USERNAME
UpdateValueSql "TBL_BasicCharQuest" %A9 "FLD_STATUS1_RDY=21"

}
;;;QQ:67762207
